10 GOSUB56195
11 FORS=54272TO54296:POKES,0
12 POKE54296,15
90 POKE53280,2:POKE53281,11
100 DIM N$(55),D$(55),CD$(5,6),S$(5,6),V(5,6),BC(5,4),OT(6,5),FP$(21,5)
150 DIM E1$(5,5),E2$(5,5),C(21),W1$(11),W2$(11)
200 T(1)=14:T(2)=27:T(3)=14:T(4)=1
210 CU$(1)="":CU$(2)=""
230 CU$(4)=CU$(2):CU$(3)=""
250 B$(1)="_":B$(2)="^[157][157]"
270 B$(3)="_":B$(4)=B$(2)
300 BC(1,1)=2:BC(1,2)=3:BC(1,3)=4:BC(2,1)=3:BC(2,2)=4:BC(2,3)=1
320 BC(3,1)=4:BC(3,2)=1:BC(3,3)=2:BC(4,1)=1:BC(4,2)=2:BC(4,3)=3
340 FOR I=1TO4:ST(I)=0:NEXT
345 PRINT"[158][147] [146][145][157]                              [146][157] [146]"
350 PRINT" [146]       FIVE CARD STUD        [146]"
351 PRINT" [146]  COPYWRITE 1983  G. ADAMS   [146]"
352 PRINT" [146][157]                              [146][145][157] [146]"
360 PRINT"RULES[146] - 25 CENT ANTE"
370 PRINT" - BET 25 CENT MAXIMUM"
371 PRINT" - MAXIMUM OF 3 BUMPS"
372 PRINT"[153][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][146]"
373 PRINT"[161]TO BET  [146] PRESS 5,10 OR 25   [161][146]"
374 PRINT"[161]TO CALL [146] PRESS C            [161][146]"
375 PRINT"[161]TO RAISE[146] PRESS R5,R10 OR R25[161][146]"
376 PRINT"[161]TO FOLD [146] PRESS F            [161][146]"
377 PRINT"[188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190][146]"
380 PRINT"[159]PRESS SPACE[146] FOR EACH NEW HAND"
382 PRINT"PRESS @ WHEN YOU'VE HAD ENOUGH"
400 INPUT"WHAT'S YOUR NAME";NM$
500 FOR I=1TO54:READ N$(I):NEXT
520 FOR I=1TO5:FOR J=0TO4:READ OT(I,J):NEXTJ,I
550 FORI=1TO20:FORJ=1TO4:READ FP$(I,J):NEXTJ,I
560 FORI=1TO10:READW1$(I),W2$(I):NEXT
570 FORI=1TO4:FORJ=1TO4:READ E1$(I,J),E2$(I,J):NEXTJ,I
1000 PRINT"[147]";:TP=100:GOSUB50000
1020 D=1:TR=0:NF=0:FOR I=1TO4:IP(I)=25:FD(I)=0:NEXT
1050 X%=RND(-TI):FORI=1TO21:C(I)=0:NEXT
2000 FOR N=1TO5
3000 FOR I=1TO4
3100 NR(I)=0:CB(I)=0:IFFD(I)=1GOTO7000
3200 CD$(I,N)=D$(D):D=D+1:M=T(I)+2*N-3
3500 L$=LEFT$(CD$(I,N),1)
3600 V(I,N)=VAL(L$)
3700 IF V(I,N)<>0 GOTO 3800
3710 IF L$="T"THEN V(I,N)=10:GOTO 3800
3720 IF L$="J"THEN V(I,N)=11:GOTO 3800
3730 IF L$="Q"THEN V(I,N)=12:GOTO 3800
3740 IF L$="K"THEN V(I,N)=13:GOTO 3800
3750 V(I,N)=14
3800 S$(I,N)=RIGHT$(CD$(I,N),1):R$=S$(I,N)
3805 POKE54276,129:POKE54276,0
3810 ONIGOTO3820,3830,3840,3850
3820 FORJ=124TO50STEP-1
3824 POKEV+1,J:NEXT
3828 POKEV+1,124:GOTO3900
3830 FORJ=160TO210+8*N
3834 POKEV,J:NEXT
3838 POKEV,160:GOTO3900
3840 FORJ=124TO194
3844 POKEV+1,J:NEXT
3848 POKEV+1,124:GOTO3900
3850 FORJ=160TO40+8*N STEP-1
3854 POKEV,J:NEXT
3858 POKEV,160
3900 PRINT CU$(I);:IFN=1GOTO5500
3910 CL$="":IFN=2THENCL$="[150]"
4100 PRINT TAB(M)CL$;"[167]"+""+L$+"  [146]"
4200 PRINT TAB(M)CL$;"[167]"+""+R$+"  [146]"
4300 PRINT TAB(M)CL$;"[167]  "+R$+"[146]"
4400 PRINT TAB(M)CL$;"[167]  "+L$+"[146]"
4450 POKE59467,16:POKE59466,15:POKE59464,200:POKE59464,0
4500 ON N-2 GOSUB 20500,20300,20000
4600 IF N=2 THEN FV(I)=V(I,2)
4700 M=0
4800 FORW=2TON
4900 IFV(I,1)=V(I,W)THEN M=M+1
5000 NEXT
5100 TV(I)=V(I,1)
5200 ON M GOSUB 25000,26000,27000
5250 IF TV(I)<FV(I)THEN TV(I)=FV(I)
5300 IFN=5ANDTV(I)<15THENGOSUB29000
5400 GOTO 7000
5500 IF I<4 GOTO 6200
5600 PRINT CU$(4);
5700 PRINT "[150]   [146]":PRINT " "+L$+"[150] "
5900 PRINT " "+R$+"[150] ":PRINT "   [146]"
6100 GOTO 6999
6200 FOR K=1TO4:PRINT TAB(T(I))"[150]   [146]":NEXT
6999 POKE59467,16:POKE59466,15:POKE59464,200:POKE59464,0
7000 NEXT I
7100 IF N=1 GOTO 9200
7200 MX=1
7300 FOR I=2TO4
7400 IF FV(I)>FV(MX)THEN MX=I
7500 IF FV(I)=FV(MX)THEN F=2:GOSUB 31000
7600 NEXT
7700 BE=MX:R=0:LTB=0
7800 ONMX GOSUB37000,38000,39000,35000
7900 FOR M=1TO3:BO(M)=BC(BE,M):NEXT
8000 RF=0
8100 FOR Y=1TO3
8300 BE=BO(Y):IFFD(BE)=1GOTO 8700
8350 IF BE=4 THENGOSUB 35200:GOTO8600
8400 NRA=TR-NR(BE):GOSUB40000
8600 IF RF=1 GOTO 7900
8700 NEXT
8750 FOR Z=1TO1000:NEXT
8800 FORP=1TO4
9000 PRINTCU$(P);:PRINTTAB(T(P))B$(P);"[145]  [157][157][157]         [157][157][157][157][157][157][157][157][157]           "
9100 NEXT
9150 IF NF=3GOTO10000
9200 NEXT N
10000 FORZ=1TO1000:NEXT
10100 FOR I=1TO4
10200 IFFD(I)=1GOTO10700
10300 PRINT CU$(I);
10400 PRINT TAB(T(I))""+LEFT$(CD$(I,1),1)+"[167][146]"
10500 PRINT TAB(T(I))""+S$(I,1)+"[167][146]"
10600 PRINT TAB(T(I))" [167][157][157] [167][146]"
10700 NEXT I
11000 MX=1
11100 FOR I=2TO4
11200 IF TV(I)>TV(MX)THEN MX=I
11300 IF TV(I)=TV(MX)THEN GOSUB 30000
11400 NEXT
12000 PRINTCU$(MX);:X%=RND(1)*10+1
12100 PRINTTAB(T(MX))B$(MX);"[157] [145] [157][157][157]";W1$(X%)
12140 PRINTCU$(MX);"";
12150 PRINTTAB(T(MX))B$(MX);"[157] [157][145]";W2$(X%)
12200 FOR I=1TO4
12300 IF I=MX THEN ST(I)=ST(I)+TP-IP(I):GOTO 12700
12400 ST(I)=ST(I)-IP(I)
12700 NEXT
15000 GET C$:IF C$=""GOTO 15000
15050 IFC$<>"@"GOTO1000
15100 PRINT"[147]";:GOSUB 50000
15200 END
20000 IF V(I,2)<V(I,3)THEN SW=V(I,2):V(I,2)=V(I,3):V(I,3)=SW
20100 IF V(I,3)<V(I,4)THEN SW=V(I,3):V(I,3)=V(I,4):V(I,4)=SW
20200 IF V(I,4)<V(I,5)THEN SW=V(I,4):V(I,4)=V(I,5):V(I,5)=SW
20300 IF V(I,2)<V(I,3)THEN SW=V(I,2):V(I,2)=V(I,3):V(I,3)=SW
20400 IF V(I,3)<V(I,4)THEN SW=V(I,3):V(I,3)=V(I,4):V(I,4)=SW
20500 IF V(I,2)<V(I,3)THEN SW=V(I,2):V(I,2)=V(I,3):V(I,3)=SW
21000 P=0
21100 FOR W=2TON-1
21200 IF V(I,W)<>V(I,W+1)GOTO 21800
21400 P=P+1:IF P=1 THEN FV(I)=10*V(I,W):GOTO 21800
21500 IF V(I,W)=V(I,W-1)THEN FV(I)=1000*V(I,W):GOTO 21800
21600 FV(I)=100*V(I,2)
21700 IF P=3 THEN FV(I)=100000*V(I,2)
21800 NEXT
21900 IF P=0 THEN FV(I)=V(I,2)
22000 RETURN
25000 IF FV(I)<15 THEN TV(I)=10*V(I,1):GOTO 25400
25100 IF FV(I)>141 THEN TV(I)=10*FV(I):GOTO 25400
25300 TV(I)=100*V(I,1):IF TV(I)<10*FV(I)THEN TV(I)=10*FV(I)
25400 RETURN
26000 IF FV(I)<141 THEN TV(I)=100*FV(I):GOTO 26200
26100 TV(I)=10000*V(I,1)
26200 RETURN
27000 TV(I)=100000*V(I,1):RETURN
29000 FORJ=1TO4
29010 IFS$(I,J)<>S$(I,J+1)THENJ=4:NEXT:GOTO29040
29020 NEXT
29030 TV(I)=15000+FV(I):RETURN
29040 MN=V(I,1):MAX=V(I,1)
29050 FORJ=2TO5
29060 IFV(I,J)<MNTHENMN=V(I,J)
29070 IFV(I,J)>MAXTHENMAX=V(I,J)
29080 NEXT
29090 IFMAX-MN=4THENTV(I)=14500+FV(I)
29100 RETURN
30000 FOR W=1TO4
30100 IFV(I,W)>=V(I,W+1)GOTO 30300
30200 SW=V(I,W):V(I,W)=V(I,W+1):V(I,W+1)=SW
30300 NEXT
30400 FOR W=1TO4
30500 IF V(MX,W)>V(MX,W+1)GOTO 30700
30600 SW=V(MX,W):V(MX,W)=V(MX,W+1):V(MX,W+1)=SW
30700 NEXT
30800 F=1
31000 FORW=FTON
31010 IFV(I,W)>V(MX,W)THEN MX=I:RETURN
31020 IFV(I,W)<V(MX,W)THEN RETURN
31030 NEXT
31040 RETURN
35000 PRINT""
35100 POKE19,1:INPUT"BET ";TB$:POKE19,0:TB=VAL(TB$)
35150 FF=1:IFTB<26GOTO36000
35160 PRINT"LIMIT IS 25"
35170 FOR Z=1TO2000:NEXT
35175 PRINT"             "
35180 GOTO35000
35200 PRINT""
35220 IFR<3GOTO35300
35250 POKE19,1:INPUT"C OR F[157][157][157][157][157]";DE$:POKE19,0
35260 IFLEFT$(DE$,1)="C"ORLEFT$(DE$,1)="F" GOTO35400
35270 PRINT"LIMIT_3 RAISES[146]"
35280 FOR Z=1TO3000:NEXT
35285 PRINT"              [157][157][157][157][157][157][157][157][157][157][157][157][157]           "
35290 GOTO35200
35300 POKE19,1:INPUT"C,R OR F[157][157][157][157][157][157][157]";DE$:POKE19,0
35400 IF LEFT$(DE$,1)="F"THEN:FD(4)=1:GOTO36000
35500 IF LEFT$(DE$,1)="C" THEN TB=LTB:GOTO 36000
35600 TB=VAL(RIGHT$(DE$,LEN(DE$)-1))
35610 IF TB<26THEN35620
35615 FORZ9=1TO6:PRINT"MAX BUMP IS 25[146]"
35616 FOR Z=1TO600:NEXT:PRINT"[145]              ":FORZ=1TO100:NEXT:NEXT
35617 PRINT"              [157][157][157][157][157][157][157][157][157][157][157][157][157]           [145][145]"
35618 GOTO35300
35620 TB=LTB+TB:RF=1:R=R+1:TR=TR+1
36000 PRINT"           [157][157][157][157][157][157][157][157][157][157][157]           "
36100 IF FD(4)=1 THENGOSUB59910:RETURN
36200 GOSUB 47000
36300 RETURN
37000 X%=RND(1)*N
37100 IF TV(MX)>14 GOTO 37300
37110 IF TR>0 THEN Z=1:GOTO37900
37120 Z=2:GOTO 37900
37300 IF FV(MX)<15ANDTV(MX)<>10*V(MX,2)THENZ=3:GOTO37900
37310 IF TV(MX)>=10*V(MX,2)THEN Z=5:GOTO37900
37320 Z=4
37900 TB=OT(Z,X%)
37910 FF=1:GOSUB 47000
37920 RETURN
38000 X%=RND(1)*N
38100 IF TV(MX)>14 GOTO 38300
38110 IF TR>0 THEN Z=2:GOTO 38900
38120 Z=3:GOTO 38900
38300 IF TV(MX)<141 AND TV(MX)<>10*V(MX,2)THEN Z=4:GOTO 38900
38310 TB=25:LTB=TB:GOTO38910
38900 TB=OT(Z,X%)
38910 FF=1:GOSUB 47000
38920 RETURN
39000 X%=RND(1)*N
39020 IF TV(MX)<15 THEN Z=1:GOTO39900
39050 IF TV(MX)>=10*V(MX,2) THEN Z=5:GOTO39900
39100 IF FV(MX)<15 THEN Z=4:GOTO39900
39300 IF FV(MX)>14AND TR>0 THEN Z=2:GOTO39900
39400 Z=3
39900 TB=OT(Z,X%)
39910 FF=1:GOSUB 47000
39920 RETURN
40000 X%=10*RND(1)+1:Z=4
40050 IF TV(BE)>=FV(MX)GOTO41000
40100 IF X%<=BE ANDNRA<=BE*(N-3.5)ANDFV(BE)*10>FV(MX)GOTO42000
40150 IF LTB=5ANDN<>5GOTO42600
40200 IF 10*TV(BE)<FV(MX)ANDN>BETHEN GOSUB59910:RETURN
40300 IF BE=1ANDX%<N^2*2-9THEN GOSUB59910:RETURN
40400 IF BE=2ANDX%<N^2-12THEN GOSUB59910:RETURN
40450 IF BE=3ANDX%<N^2-13THEN GOSUB59910:RETURN
40500 GOTO42600
41000 IF LTB<=10GOTO41300
41020 IFTV(BE)<15ANDNRA>BEANDX%<=2*(N-BE+1)THENGOSUB59910:RETURN
41050 IF N=2GOTO41300
41100 FORZ=1TO4
41150 IF FD(Z)=1GOTO41210
41200 IFTV(BE)>=10*V(Z,3)GOTO41300
41210 NEXT
41220 IF NRA>BE+N-4ANDX%<N-BETHENGOSUB59910:RETURN
41300 IFTV(BE)>=10*FV(MX)THEN Z=5:GOTO42000
41400 FORZ=1TO4
41440 IF FD(Z)=1GOTO41550
41500 IFTV(BE)<10*V(Z,2)GOTO41600
41550 NEXT
41560 Z=4:GOTO42000
41570 IF N=2GOTO41800
41600 FORZ=1TO4
41620 IF FD(Z)=1GOTO41650
41640 IFTV(BE)<10*V(Z,3)GOTO41800
41650 NEXT
41660 IFNRA<BE+N-3ANDX%<3*BE+2THENZ=4:GOTO42000
41800 IFTV(BE)>14ANDNRA<BE+N-4ANDX%<2*BE+2THENZ=3:GOTO42000
41900 IF NRA<BE+N-4ANDX%<2THENZ=3:GOTO42000
41950 GOTO42600
42000 IFR=3GOTO42600
42100 X%=RND(1)*N
42200 TB=LTB+OT(Z,X%):R=R+1:TR=TR+1:NR(BE)=NR(BE)+1:RF=1
42500 GOTO47000
42600 TB=LTB
47000 IFFF<>1THEN47050
47001 FF=0:PRINTCU$(BE);TAB(T(BE))B$(BE);"BET";TB:GOSUB47700:GOTO47300
47050 PRINTCU$(BE);TAB(T(BE))B$(BE);"CALL";LTB;"[157][157][157][157][157][157][157][157][157]          "
47060 GOSUB47700
47100 IF RF=1 THEN PRINTCU$(BE)TAB(T(BE))B$(BE);"RAISE[146]";TB-LTB:GOSUB47700
47300 TP=TP+TB-CB(BE):IP(BE)=IP(BE)+TB-CB(BE):CB(BE)=TB:LTB=TB
47400 PRINT"";TP
47500 FORZ=1TO600:NEXT
47600 RETURN
47700 POKE59467,16:POKE59466,15:X9=RND(-TI)
47705 K5=3:IFLTB<15THENK5=2
47710 FORK6=1TOK5:POKE59464,30*BE+15*INT(9*RND(1))
47720 FORT7=1TO200-30*K6:NEXT:POKE59464,0
47730 NEXT
47740 RETURN
48000 MX=1
48100 FORI=1TO4
48200 IF ST(I)>=ST(MX)THEN MX=I
48300 NEXT
48400 MN=1
48450 FORI=1TO4
48500 IF ST(I)<=ST(MN)THEN MN=I
48600 NEXT
48700 X%=RND(1)*4+1
48800 PRINTCU$(MX);:FORI=1TO4:PRINTTAB(T(MX))"";E1$(X%,I);"[146]":NEXT
48900 FORZ=1TO4000:NEXT
49000 PRINTCU$(MN);:FORI=1TO4:PRINTTAB(T(MN))"";E2$(X%,I);"[146]":NEXT
49100 PRINT"";
49200 RETURN
50000 PRINT"";:B=14:GOSUB57000
50100 PRINTTAB(15)"[169]       [223][146]"
50200 PRINTTAB(14)"[169] [155]$$POT$$ [223][146]"
50300 PRINTTAB(13)"[169]           [223][146]"
50400 PRINTTAB(12)"[169]             [223][146]"
50500 PRINTTAB(11)"[167]               [146][165]"
50501 PRINTTAB(11)"[167]               [146][165]"
50502 PRINTTAB(11)"[167]               [146][165]"
50503 PRINTTAB(11)"[167]               [146][165]"
50504 PRINTTAB(11)"[167]               [146][165]"
50600 PRINT"[145][145][145][145][145]":B=1:GOSUB57000
50700 PRINT"[145][145][145][145][145]":B=27:GOSUB57000
50900 PRINTTAB(11)"[167]               [146][165]"
51000 PRINTTAB(12)"[223]             [146][169]"
51100 PRINTTAB(13)"[223]           [146][169]"
51200 PRINTTAB(14)"[223]         [146][169]"
51210 PRINTTAB(15)"[223]       [146][169]"
51300 PRINT
51350 B=14:GOSUB57000
51400 PRINTCU$(1);TAB(8)"[155]FELIX"
51410 PRINTCU$(2);TAB(27)"[145][145]MURRAY"
51420 PRINTCU$(3);TAB(8)"OSCAR"
51430 PRINTCU$(4);"[145][145] ";NM$
51800 FOR I=1 TO 4
51810 A$="UP"
51820 IF ST(I)<0 THEN A$="DOWN"
51900 PRINTCU$(I);
52000 PRINTTAB(T(I))"[155][145]";A$;ABS(ST(I))
52100 NEXT
52200 IFC$="@"THENGOSUB48000:RETURN
53000 FOR I=1TO54:D$(I)=" ":NEXT
53100 VAC=1:L=1
53200 FOR H=1TO3
53300 X=RND(-TI)
53400 GOSUB56000
53800 FOR I=1TO18
53900 X%=RND(1)*54+1
54000 IF D$(X%)=" "GOTO 54300
54100 IF D$(VAC)<>" "THEN VAC=VAC+1:GOTO 54100
54200 X%=VAC
54300 IF X%=53ORX%=54THEND$(X%)="JR":GOTO 54600
54400 D$(X%)=N$(L):L=L+1
54600 NEXT
54800 NEXT
54900 FOR I=1TO54:N$(I)=D$(I):NEXT
54950 PRINT"";TP;"[157] "
55000 RETURN
56000 V=53248:FORT=0TO4:POKEV+2*T,160:POKEV+2*T+1,126:NEXT
56010 POKE2040,13:POKE2041,15:POKE2042,15:POKE2043,13:POKE2044,14
56020 POKEV+21,15
56030 POKEV+23,15:POKEV+29,15
56040 POKEV+39,10:POKEV+40,1:POKEV+41,1:POKEV+42,10:POKEV+43,1
56055 POKE54272,31:POKE54273,31:POKE54276,129:FORK=1TO15:NEXT:POKE54276,0
56056 FORK=-9TO25 STEP2
56060 POKEV+16,0:POKEV,147-K:POKEV+4,147-K
56061 POKEV+1,112+ABS(K)/2:POKEV+5,112+ABS(K)/2:POKEV+21,15:NEXT
56068 POKE2041,14:POKEV+21,27:POKEV+23,27:POKEV+29,27
56070 FORK=0TO38STEP2
56076 POKEV,122+K:POKEV+8,122+K:POKEV+1,124:POKEV+9,124
56080 IFK>10THENPOKE54276,129:POKE54276,0
56085 NEXT
56090 RETURN
56195 FORK=832TO1022:READP:POKEK,P:NEXT:RETURN
56200 DATA 0 , 0 , 0
56201 DATA 0 , 0 , 0
56202 DATA 0 , 0 , 0
56203 DATA 0 , 0 , 0
56204 DATA 0 , 0 , 0
56205 DATA 0 , 0 , 0
56206 DATA 0 , 127 , 254
56207 DATA 0 , 255 , 252
56208 DATA 1 , 255 , 248
56209 DATA 3 , 255 , 240
56210 DATA 7 , 255 , 224
56211 DATA 15 , 255 , 192
56212 DATA 31 , 255 , 128
56213 DATA 63 , 255 , 0
56214 DATA 127 , 254 , 0
56215 DATA 0 , 0 , 0
56216 DATA 0 , 0 , 0
56217 DATA 0 , 0 , 0
56218 DATA 0 , 0 , 0
56219 DATA 0 , 0 , 0
56220 DATA 0 , 0 , 0,0
56221 DATA 0 , 0 , 0
56222 DATA 0 , 0 , 0
56223 DATA 0 , 0 , 0
56224 DATA 0 , 0 , 0
56225 DATA 0 , 0 , 0
56226 DATA 0 , 0 , 0
56227 DATA 0 , 0 , 0
56228 DATA 0 , 0 , 1
56229 DATA 0 , 0 , 2
56230 DATA 0 , 0 , 5
56231 DATA 0 , 0 , 10
56232 DATA 0 , 0 , 21
56233 DATA 0 , 0 , 42
56234 DATA 0 , 0 , 84
56235 DATA 0 , 0 , 168
56236 DATA 170 , 171 , 80
56237 DATA 85 , 85 , 160
56238 DATA 170 , 171 , 64
56239 DATA 85 , 85 , 128
56240 DATA 255 , 255 , 0
56241 DATA 0 , 0 , 0,0
56242 DATA 0 , 0 , 0
56243 DATA 0 , 0 , 0
56244 DATA 0 , 0 , 0
56245 DATA 0 , 0 , 0
56246 DATA 0 , 0 , 0
56247 DATA 0 , 0 , 0
56248 DATA 0 , 0 , 1
56249 DATA 0 , 0 , 3
56250 DATA 0 , 0 , 7
56251 DATA 0 , 0 , 14
56252 DATA 0 , 0 , 28
56253 DATA 0 , 0 , 56
56254 DATA 0 , 0 , 112
56255 DATA 0 , 0 , 224
56256 DATA 0 , 1 , 192
56257 DATA 255 , 255 , 128
56258 DATA 255 , 255 , 0
56259 DATA 255 , 254 , 0
56260 DATA 0 , 0 , 0
56261 DATA 0 , 0 , 0
56262 DATA 0 , 0 , 0
56270 RETURN
57000 PRINTTAB(B)"[207][163][163][163][163][163][163][163][163][163][208]"
57010 PRINTTAB(B)"[165]         [167]"
57020 PRINTTAB(B)"[165]         [167]"
57030 PRINTTAB(B)"[204][164][164][164][164][164][164][164][164][164][186]"
57040 RETURN
59910 PRINTCU$(BE);
59920 PRINTTAB(T(BE))"[150] F [146]        "
59930 PRINTTAB(T(BE))" O [146]        "
59940 PRINTTAB(T(BE))" L [146]        "
59945 PRINTTAB(T(BE))" D [146]        "
59946 PRINT"[145][145][145][145][145]"
59947 X%=RND(1)*13+1:IFFV(MX)>110THENX%=14+RND(1)*6
59949 IFC(X%)=1GOTO59947
59950 C(X%)=1:IFTV(BE)>=FV(MX)THENX%=20
59952 FORJ=1TO4:PRINTTAB(T(BE)+4)"";FP$(X%,J);"[146]":NEXT
59955 FORZ=1TO600:NEXT
59956 PRINTCU$(BE);TAB(T(BE))B$(BE);"[145]  [157][157][157]         [157][157][157][157][157][157][157][157][157]          "
59960 TV(BE)=0:FV(BE)=0:FD(BE)=1:NF=NF+1:RETURN
60000 DATA"2[211]","3[211]","4[211]","5[211]","6[211]","7[211]","8[211]","9[211]","T[211]","J[211]","Q[211]","K[211]","A[211]"
60010 DATA"2[218]","3[218]","4[218]","5[218]","6[218]","7[218]","8[218]","9[218]","T[218]","J[218]","Q[218]","K[218]","A[218]"
60020 DATA"2[193]","3[193]","4[193]","5[193]","6[193]","7[193]","8[193]","9[193]","T[193]","J[193]","Q[193]","K[193]","A[193]"
60030 DATA"2[216]","3[216]","4[216]","5[216]","6[216]","7[216]","8[216]","9[216]","T[216]","J[216]","Q[216]","K[216]","A[216]"
60040 DATA"JR","JR"
60100 DATA 5,5,5,10,10,5,5,10,10,25,10,10,10,25,25,10,10,25,25,25,25,25,25
60200 DATA 25,25
60300 DATA"WHEN   ","DO THE ","GIRLS  ","ARRIVE "
60305 DATA"JUST   ","ISN'T  ","MY     ","NIGHT  "
60310 DATA"TOO    ","MANY   ","LOUSY  ","CARDS  "
60315 DATA"I CAN'T","ARGUE  ","WITH   ","THAT   "
60317 DATA"SEX IS ","A LOT  ","MORE   ","FUN    "
60318 DATA"ANYONE ","WANT   ","ANOTHER","BEER   "
60320 DATA"THIS   ","GAME IS","FOR THE","BIRDS  "
60325 DATA"ANYONE ","WANT TO","PLAY   ","GO FISH"
60327 DATA"POKER  ","JUST   ","ISN'T  ","MY GAME"
60328 DATA"ANYONE ","KNOW   ","ANOTHER","GAME   "
60330 DATA"I'M    ","GOING  ","TO THE ","JOHN   "
60335 DATA"WHERE'S","THE    ","NEAREST","BAR    "
60337 DATA"SHOULD ","HAVE   ","STAYED ","AT HOME"
60340 DATA"I CAN'T","COMPETE","WITH   ","THOSE  "
60350 DATA"NO USE ","GIVING ","MONEY  ","AWAY   "
60360 DATA"MAY A  ","TIGER  ","SWALLOW","YOU UP "
60361 DATA"MAY A  ","HIPPO  ","TRAMPLE","ON YOU "
60362 DATA"MAY A  ","BAT FLY","UP YOUR","NOSE   "
60363 DATA"MAY AN ","ANGRY  ","HAMSTER","EAT YOU"
60370 DATA"I HOPE ","YOU'RE ","NOT    ","BLUFFIN"
61000 DATA"YOUR MONEY","IS WELCOME"
61010 DATA"READ THEM","AND WEEP"
61020 DATA"THANKYOU","GENTLEMEN"
61030 DATA"SUCCESS IS","SO SWEET"
61040 DATA"THANKS! I","NEEDED THAT"
61050 DATA"ACCEPTED","WITH THANKS"
61060 DATA"I CHARGE $5","FOR LESSONS"
61070 DATA"BETTER LUCK","NEXT TIME"
61080 DATA"EASY GAME","ISN'T IT"
61090 DATA"SMILE! IT'S","ONLY MONEY"
61100 DATA"IF ANYONE   ","YOU NEED A  ","NEEDS A LOAN","KICK IN THE "
61120 DATA"I CHARGE 30%","ASS. I'LL DO","PER DAY.    ","IT FOR FREE "
61140 DATA"CALL ME WHEN","REMEMBER TO ","YOU'VE GOT  ","BRING YOUR  "
61160 DATA"MORE MONEY  ","CHEQUE BOOK ","TO GIVE AWAY","NEXT TIME   "
61180 DATA"WELL IT'S   ","YEAH! BUT   ","BEEN A GREAT","EVEN NICER  "
61200 DATA"NIGHT HASN'T","IF YOU HAD  ","IT!!        ","STAYED HOME "
61220 DATA"ANYONE FEEL ","ONLY IF YOU ","LIKE GOING  ","ARE PAYING  "
61240 DATA"OUT FOR BEER","YOU'VE GOT  ","AND PIZZA   ","ALL MY MONEY"